\begin{lstlisting}[label=applescript_example_01, caption={Ukázka kódu v
jazyce \as. Skript po spuštění zobrazí uživateli dialogové okno pro výběr vstupního
souboru. Předpokládá se, že každý řádek obsahuje správnou URL adresu. Skript
tyto adresy načte a každou otevře v internetovém prohlížeči Safari.}]
tell application "Safari"
  set prompText to "Select file containing URLs"
  set inputFile to choose file with prompt prompText
  set urls to paragraphs of (read inputFile) as list
  repeat with loc in urls
    open location loc
  end repeat
end tell
\end{lstlisting}